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EDITORIAL 


Chers Tous, 


L'appel lancé dans le dernier JPC semble avoir été 
entendu. Vous êtes nombreux à nous envoyer vos 
lettres, articles et programmes. Continuez, nous 
sommes sur la bonne voie ! 


L'Assemblée Générale ordinaire se tiendra, cette 
année, le dimanche 7 décembre, de 14h à 18h. Vous 
recevrez une convocation précisant le lieu, la date et 
l'heure exacts. L'ordre du jour contiendra, entre 
autres, le bilan de l’année écoulée, et le 
renouvellement des membres du Bureau. Venez 
nombreux, le Club vous appartient... 


En attendant de vous y retrouver. 


Pierre David 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous Le savez peut être déjà, PPC Paris 
se réunit une fois par mois, en plein coeur de 
Paris. Amenez votre matériel, votre bonne 
volonté et vos idées |! Plus vous en apporterez, 
et plus vous en trouverez chez vos collègues de 
PPC. 


Ces réunions se déroulent de manière très 
libre, aucun ordre du jour, discussion ou autre 
n'étant imposé. Un membre du bureau est toujours 
présent. Ainsi, si vous désirez remettre votre 
article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en 
principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un 
seul instant, venez nous rejoindre tous les 
premiers samedis de chaque mois (sauf en péride 
de vacances scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montent au deuxième étage, vous entendrez 


des éclats de rire et des discussions 
passionnées vers La salle 215. Attention, 
toutefois, de venir entre 16 et 19h. 

Pour l'accès en métro, trois possibilités 


s'offrent à vous : 

- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 
- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais |! JPC est (souvent) distribué en 
avant première Lors de ces réunions... A bon 
entendeur, salut ! 


Les dates des prochaines réunions sont : 


Samedi 4 octobre 1986 
Samedi 15 novembre 1986 
Samedi 6 décembre 1986 
Samedi 17 janvier 1987 
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Samedi 7 février 1987 
Samedi 7 mars 1987 
Samedi 4 avril 1987 
Samedi 16 mai 1987 
Samedi 6 juin 1987 


Pierre DAVID 
(P37, S1G1, CHHU616) 


AH |! VOUS ECRIVEZ 


Vous vous sentez en verve, mais vous ne savez 
pas sous quelle forme "l'équipe de rédaction! 
souhaite recevoir votre prose. C'est ici que se 
trouvent les réponses à vos questions. 


Dans La mesure du possible, vous devez nous 
envoyer vos écrits sur support magnétique 
(carte, cassette ou disquette). Soyez sans 
crainte, nous vous retournerons vos biens après 
copie. 


Si vous ne pouvez pas utiliser de support 
magnétique, ou ne pouvez vous rendre aux 
réunions, alors et alors seulement faites Le sur 
papier. 


Que ce soit sur une feuille de papier, ou sur 


support magnétique, ne  dépassez pas 50 
caractères par ligne. 


Pour nous épargner du travail, insérez dans 
votre texte Les commandes de  formattage 
suivantes (et non les commandes du formatteur 
HP) : 


“*“ centre un titre, par exemple : 
“TITRE 


H\S (CHRS(92)) marque le début et La fin d'un 
paragraphe. Par exemple : 


\Début de paragraphe exprimant Le contenu de 
vos idées qui, même si vous en doutez, 
intéressera certains des membres du Club. 
Surtout si vous vous sentez débutant. Les 
articles pour débutants écrits par des débutants 
sont ceux qui manquent Le plus. Fin de 


paragraphe.\ 


N'oubliez pas de mettre Les accents. 
le jeu de caractères Roman8. Les 
HP71 utiliseront les 


Utilisez 
possesseurs de 
redéfinitions de touches 


ci-dessous, ainsi que Le fichier CHARLEX listé 
dans Le coin des Lhex en fin de journal. 
Jean-Jacques Dhénin 
DEF KEY ‘fW', CHR$(197); (é) 
DEF KEY ‘fE', CHR$(193); (é) 
DEF KEY ‘fR', CHR$(201); (è) 
DEF KEY ‘fY', CHR$(203); (ù) 
DEF KEY ‘fU', CHR$(195); [)) 
DEF KEY 'fl', CHR$(209); (1) 
DEF KEY ‘f0', CHRS(196); (8) 
DEF KEY ‘f/!, CHRS(92); [av] 
DEF KEY ‘fA', CHR$(192); (à) 
DEF KEY 'fS', CHRS(200); (à) 
DEF KEY ‘fD!, CHRS(205); (ë) 
DEF KEY ‘'fJ', CHR$S(207); (ü) 
DEF KEY ‘fK', CHR$(221); €) 
DEF KEY ‘f*1, CHR$(124); cp 
DEF KEY ‘fC', CHR$S(181); (ç) 
COURRIER DES LECTEURS 
Alain Gillet 
èè rue Planchat 
75020 Paris 
Tél: (1) 43 67 54 44 
Je prends La plume car l'édito de juin m'y 
invite. En effet, on peut penser que le fossé se 


creuse entre ceux qui croient savoir et ceux qui 
croient ne pas savoir. Bon. Eh bien moi, je 
viens d'avoir Le 71. On se sent désemparé, tout 
petit, surtout après La 41 1! Alors bravo Les 
copains pour vos programmes, assembleur et 
conseils, il est super Notre journal 1 Regardez 
autour de vous d'autres journaux, revues et 
Clubs : eh bien, maintenant, regardez JPC, Notre 
Club. Vous ne voyez pas une différence ? 


Avant, il y evait “La 41*. Aujourd'hui, “Le 
71%. Le 41, ok super un monstre à dompter, avec 
la découverte de La programmation synthétique. 
Alors on a vu dans JPC moult programmes, 
rubriques sur Le bébé. Les possesseurs de 41, 





ellez-y  défoncez-vous, exploïtez Les nouveaux 
modules, optimisez vos programmes et faites les 
paraître. Progresser, c'est d'abord accepter ses 
erreurs et, en plus, Les anciens sont Là pour 
vous aider, profiter de leur acquis. JPC, c'est 
cela à mon avis, un échange incessant de savoir, 
questions et réponses. On &8 Là un Club aux 


petits oignons | 


Pour Le 71, on tombe dans les Lieux communs. En 
effet, Le basic on a entendu parler. Alors 
évidement, pour Les plus anciens, Le trip c'est 
l'assembleur. Eh bien moi qui débute en basic, 
je dis : minute blaise 1 JPC m'aide, 
des programmes et des renseignements, et des 
copains avec qui j'échange différents avis. Je 
vais envoyer ma petite contribution mensuelle à 
JPC. Cela m'embéterait de voir un outil 
JPC imploser. Vous, Les débutants, allez 
aidez-moi. Pourquoi pas une réunion plus 
didactique pour nous faire avancer au mieux ? Un 
truc qu'on mettrait au point ensemble. Le 
challenge est lencé 1! 


j'y trouve 


comme 


Pour finir bravo au Bureau, à tous 
de JPC, longue vie à celui-ci. 


les copains 
Préservons notre 


outil. A vos monstres, et à La prochaine 
réunion. Bonne rentrée à tous |! 
IN JPC VERITAS 
Je viens de taper cette lettre sur Le 71, je 
comprends maintenant Le boulot de l'équipe 
rédactionnelle ! Chapeau ! 

COURRIER DU COEUR 
Alain Gillet 
Tél: 43 67 54 44 après 18h 
Vend: 
HP41CV  (batteries+chargeur) : 1000 F; module 
Maths : 150 F : Lecteur de cartes (+60 cartes) : 
800 F ; Lecteur de codes berres : 500 F ; 


Interface HPIL : 500 F ; 
2500 F ; Total : 5300 F 
Livres : La programmation synthétiques (Dr 
Wickes) : 60 F ; La progremmation synthétique, 
c'est facile (K. Jarret) : 60 F ; Programmer 
HP61 (Descemps/Dhénin) : 60 F ; Time module 
solutions 1 : 80 F 


Imprimante HP82162A : 
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Eric Gengoux 
8 rue de Furstenberg 
75006 Paris 
Tél: 8: 42 85 68 23 
D: 46 33 65 79 (après 20h) 


Vend: 

Lecteur de cartes pour HP71. Neuf, pratiquement 
pas servi (HP82400A, Nov. 84) proposé à 800 F. 
Lecteur de cassettes HPIL, acheté en 1983, peu 
utilisé, proposé à 2500 F (à débattre). 

Machine à écrire électronique à mémoire Brother 
EP4&, avec interface RS232 (très peu servi 
également, état neuf, avec Lex pour utilisation 
en clavier ou imprimante HP71 ou 75 + interface 
HP82164A), proposée à 1400 F (à débattre). 


France Bilan Informatique 
10, rue Cambon 

75001 Paris 

Tél: 42 96 35 04 


Vend: 

HP718 : 2700 F H.T. 

HP9114A : 3800 F H.T. 

HP22258 : 2400 F H.T. 

Modules 4 Ko : 400 F H.T. 

Module HPIL : 600 F H.T. 
Interface HPIL/HPIB : 2000 F H.T. 
Interface HPIL/RS232 : 1600 F H.T. 
Module Forth/Ass. : 500 F H.T. 
Module Finance : 400 F H.T. 


DU BON USAGE DE CHEDIT 


IL y a deux façons de concevoir l'existence : 
la coopération et La démolition. Nous en avons 
un récent témoignage : Il s'est avéré qu'un 
fichier Lex paru {il y a déjà fort longtemps dans 
notre excellent Journal contenait une 
malencontreuse erreur. Nous n'avons pas pris La 
peine de corriger, car cette fonction n'étant 
pas d'une utilité fondamentale, son numéro de 
token servira à quelqu'un d'autre. 


Expliquons Le problème : l'éditeur de Lignes du 


HP71 (CHEDIT, #14099) utilise 6 niveaux de pile 
de retours. Or, comme chacun sait à La lecture 
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de JPC, une fonction ne peut utiliser que 4 de 
ces niveaux. Par conséquent, La probabilité de 
rencontrer un Memory Lost est Loin d'être nulle. 
Quelle n'a donc pas été notre surprise de voir 
paraître dans un autre journal une “correction! 
de ce Lex par Dominique Tinel (PC283) qui ne 
prend pas davantage que l'original Le soin de 
sauvegarder de niveaux de pile. Par conséquent, 
ce Lex reste aussi bogué que l'original, en 
dépit des affirmations péremptoires de M. Tinel. 


Comme par ailleurs Les modifications apportées 
sont relativement mineures, il paraît un peu 
présomptueux que  l''auteur*“  s'attribue la 
paternité de ce Lex. En toute hypothèse, cet 
article révèle un usage abusif du copyright. 


Soyons clairs : nous ne pouvons que souhaiter 
que d'autres améliorent Les travaux publiés dans 
JPC. IL nous semble simplement qu'il serait plus 
convenable que Les publications  résultantes 
soient communiquées à tous Les lecteurs de JPC, 
qui reste par ailleurs une source irremplaçable 
d'informations pour  spprendre à maitiser 
l'assembleur sur le HP71. 


IL est du devoir de chaque membre de protéger 
ce qui paraît dans Notre Journal. Et notre 
propos n'est pas d'attaquer Les autres Journaux. 


Le Bureau de PPC-Paris 


? A 






ER 


HP41 


J.P. Bondu Le pendu 6 
E. Gengoux Billet doux 9 
E. Gengoux Codes Barres 13 
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LE PENDU 


Ce programme permet de jouer seul au pendu car 
il contient son propre fichier vocabulaire. 
C'est l'adaptation d'une publication de 
L'Ordinateur de Poche. Son intérêt réside dans 
La construction des mots. Chaque enregistrement 
a un sens. Mais si vous mettez bout à bout un 
enregistrement de numéro pair et Le suivant, 
vous obtenez un nouveau mot. Par exemple : METRO 
et POLES peuvent donner METROPOLES. Le procédé 
est élégant. 

IL existe aussi une liste de mots spécialement 
difficiles placés en dernière position. Vous 
aurez vite fait de les repérer ! 


Bon amusement... 


Jean-Pierre Bondu (PPC 33) 


01* LBL "PENDU 
02 “ -PENDU-" 
03 AVIEW 
04 “ “ 

05 X<> M 
06 STO d 
07 TONE 9 
08 TONE 9 
09 SIZE? 
10 17 

11 X>Y? 

12 PSIZE 
13 CLA 

14 ASTO 15 
15 ASTO 16 
16 ASTO 04 
179 

18 STO 03 
19 MALEA?* 
20 SF 25 
21 RCL 01 
22 X#0? 

23 FC?C 25 
24 TIME 

25 STO 01 
26 CLX 

27 SF 25 
28 "POU“ 
29 SEEKPTA 
30 FS?C 25 
31 GTO 00 
32 110 

33 CRFLAS 
34 SF 25 


(32/00/128/00) 





35 GETAS 

36 FS?2C 25 
37 GTO 00 

38 PURFL 

39 "LD: PDU" 
40 PROMPT 


41* LBL 00 
42 "SELECTION" 
43 AVIEW 
44 XEQ 10 
45 124 

46 * 

47 INT 

48 CLA 

49 92 

50 X<=Y? 
51 SF 15 
52 XEQ "PDU“ 
53 FS?C 15 
S4 GTO 07 
55 € 

56 + 

57 RCL X 
58 2 

59 / 

60 FRC 

61 X=0? 

62 GTO 07 
63 XEQ 10 
é 2 

65 * 

éé INT 

67 xX#0? 

68 ARCLREC 
69 GTO 07 


70* LBL “POU“ 
71 RDN 

Tè SEEKPT 

73 GETREC 

74 RTN 


75* LBL 07 
76 ALENG 
77 E3 

78 / 

79 5,004 
80 + 

81 STO 00 
82 STO L 
83 RCL b 
84 ATOX 

85 STO IND L 
86 Xc>Y 
87 1SGL 


88 STO b 

89 RCL 00 
90 STO L 

91 RCL b 

92 CLA 

93 RCL IND L 
94 XTOA 

95 ASTO IND L 
96 X<>Y 

97 1SGL 

98 ST0 b 

99 GTO 06 


100* LBL 10 
101 RCL 01 
102 PI 

103 * 

104 ,211327 
105 + 

106 FRC 

107 STO 01 
108 RTN 


109* LBL "LEC" 
110 TONE 9 

111 CF 23 

112 AON 

113 RCL b 

114 PSE 

115 FC?C 23 
116 STO b 

117 ASTO L 

118 ASTO X 


119 MRECHERCHE: " 


120 ARCL X 
121 AVIEW 
122 CLA 

123 ARCL 04 
124 ARCL 15 
125 ARCL 16 
126 POSA 
127 -1 

128 X=Y? 
129 GTO 01 
130 "DEJA PRIS“ 
131 AVIEW 
132 TONE 0 
133 TONE 2 
134 GTO 06 


135* LBL 01 
136 ARCL L 
137 ASTO 04 
138 ASHF 
139 ASTO 15 
140 ASHF 
141 ASTO 16 


142 RCLFLAG 
143 Xe> L 
144 RCL 00 
445 RCL b 
146 X<> Z 
147 RCL IND Y 
148 X=Y? 
149 SF IND Z 
150 RDN 

151 X<> Z 
152 1SG Y 
153 STO b 
154 RCLFLAG 
155 LASTX 
156 X=Y? 

157 DSE 03 
158 GTO 06 
159 MPERDU" 
160 AVIEW 
161 TONE 2 
162 TONE 1 
163 TONE 0 
164 CF 26 
165 5,014 
166 RCL b 
167 SF IND Y 
168 1SG Y 
169 STO b 


170* LBL 06 
171 CLA 

172 RCL 00 
173 RCL b 

174 FS? IND Y 
175 ARCL IND Y 
176 FC? IND Y 
177 “| * 

178 1SG Y 

179 STO b 

180 Xc>Y 

181 FRC 

182 -1 E3 

183 * 

184 15 

185 + 

186 RCL b 
187 “|- " 

188 DSE Y 

189 STO b 

190 ARCL 03 
191 AVIEW 

192 95 

193 POSA 

196 -1 

195 X#Y? 

196 GTO "LEC“ 
197 TONE 9 
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198 TONE 
199 TONE 
200 TOHE 
201 TONE 
202 TONE 
203 TONE 
204 TONE 
205 BEEP 
206 AOFF 
207 END 


 ®œ © © © © © 


Le fichier en question que vous appelerez PDU : 
(ne rentrez pas les No de ligne 1) 


01 ANA 
02 GRAMME 
03 BON 
04 BONNE 
05 CHIC 
06 ANERIE 
07 DAM 

08 NATION 
09 GAz 

10 ELLE 
11 FER 

12 MAGE 
13 GUI 

14 MAUVE 
15 LECHE 
16 FRITE 
17 MARE 
18 CHALE 
19 VIN 

20 AIGRE 
21 MONT 
22 AGE 

23 LOIN 
24 TAIN 
25 LONG 
26 TEMPS 
27 PRE 

28 CURSEUR 
29 QUEL 
30 CONQUES 
31 ARC 

32 EAU 

33 HOME 
34 LIE 

35 JOLIE 
36 ESSE 
37 KILO 
38 METRES 
39 ŒIL 
40 LET 

41 BAS 

42 RELIEF 
43 CAME 
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$8 
45 


47 


49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 


IHISATANTIGEGESRERSE 


5 ñ 5 


RFERS SE 


86 
87 
88 
89 
90 


LOTE 
CHASSE 
LAS 
Do 

TE 
DENT 
AIRE 
DOUCE 
ATRE 
FAILLI 
BLE 
FOU 
LARD 
HALE 
TANT 
VIS 
AGES 
METRO 
POLES 
PORTE 
MINES 
POSTE 
RIEUR 
RAS 
SEMBLER 
VINGT 
AINE 
UNI 
FORME 
FORT 
UNE 
HALE 
TANT 


TAIRE 
MACON 
NAGE 

GRE 
NOUILLE 
RAS 
SEMBLER 
SON 
NETTES 
ALTER 
NATIF 
MUR 
MURES 
YACHT 
WAGON 
MYSTERE 
RYTHMIQUE 
PUZZLE 
BLIZZARD 
BIZZARE 
TYPHOIDE 
OLYMP IADE 





102 EMBRYON routines externes D2 et T2. Le tout est, comme 


103 HOCHEQUEUE on dit, “valable en grandes lignes! (Banlieue de 
104 HYMNE Paris et trajets hors de France exclus, donc). 
105 JAZZ Voyons par quelle magie. 

106 SPHYNX 

107 CHEIK Le principe : La formation du prix obéit à une 
108 JOYAUX loi linéaire (P=A+BD) où A est appelée ‘taxe 
109 PSAUMES complémentaire" (en æbrégé, TC) et B, “taxe 
110 ZIGZAG kilométrique" (TK). Cela ressemble d'ailleurs au 
111 PIZZA système utilisé pour les taxis, qui comporte lui 
112 SCHEMA eussi une part fixe (la “prise en charge") et 
113 LUXUEUX une part variable (Les "chutes", qui dépendent 
114 POLKA de La distance parcourue et des attentes). 
115 RUGUEUX Depuis avril dernier, on utilise non plus une, 
116 PARFUM mais trois droites pour procurer une 
117 ECHO dégressivité plus importante à grande distance. 
118 CYCLONE 

119 COURROUX En pratique, afin de pouvoir utiliser Un barème 
120 THORAX de prix et non une formule, on a découpé l'axe 
121 REFLUX des distances en “paliers, et Les prix 
122 PSYCHOSES apparaissent comme autant de marches d'escalier 
123 OPERABLE qu'il y «a de paliers. Chaque palier est 
124 REGENTER identifié par sa borne supérieure,  Llequelle 
| varie : 
sonsconnnssssssnnocneerssmenessnnnnsnnennssnnenene - de 2 en 2 km entre 7 et 49 km (7, 9, 11 ... 49) 


- de 5 en 5 km entre 50 et 199 km (54, 59 ... 199) 
- et de 10 en 10 km au-delà (209, 219...) 


BILLET DOUX... La distance utilisée pour calculer un prix est 
la “médiane du palier", définie comme suit : 


((Limite sup.palier précédent + 0.5 km) + (Limite 


Avant La fin de l'été, période propice aux sup.palier + 0.5 km))/2 
voyages, voici Un petit lot de quatre programmes 
pour HP41 (mais oui 1), totalement dépourvus avec par convention 6.5 km pour le premier 
d'instructions synthétiques ou eutres astuces, palier (celui dont La Limite supérieure est 7 
qui permettent de déterminer Le prix d'un billet km. Le module D2 fait ce calcul à partir de La 
de chemin de fer, connaissent Les données distance réelle lue dans Les “documents de 
habituelles (distance, classe, taux de réduction distances" (vendus par La SNCF, mais les 
et nombre de voyageurs). Heureux possesseurs de principales distences peuvent être retrouvées 
71, ne pleurez pas |! Si vous consentez à nous dans divers extraits ou dans l'indicateur 
suivre dans l'autopsie de l'algorithme (qui est horsire, Le Guide TGV...). 
très voisin de celui utilisé par Les machines à 
billets et autres terminaux des gares et agences Les prix de base et seuils d'application de 
de voyage), vous aurez droit à une SUB faisant chacune des treis lois linéaires, publiés dans 
la même chose, et pouvant être appelée à partir les Tarifs, sent également repris dans des 
de n'importe quel programme ! documents plus accessibles, tels Le  fichet 
ennexé su Guide Pratique du Voyageur (il donne 
Le Logiciel 41, pour sa part, utilise Le pile entre sutres prix et distence Paris-Toulouse 1). 
et une petite vingtaine de registres (bigre 1! Ceci pour vos essais... Disponible dans toutes 
Maïs c'est pour lui permettre de s'edapter dans les gares. 


le futur qu'il a été ainsi "paramétré"). IL 
comprend quatre modules : chargement des prix de Quelques règles complémentaires : 


base en vigueur (PBASE, qui peut être purgé - on impose d'avoir toujours La condition 
après Usage), programme principsl gérant Les Ac=K*B*D en plus de P=A+B*D (avec actuellement 
menus et Les appels aux autres modules (SNCF, je K=60%X), ce qui Limite l'effet de La TC eux 
menquais d'imagination ce soir-là 1), et deux petites distances. 
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Le prix d'un billet en 1ère classe est obtenu 01*LBL "SNCF“ | Prg. Ppal., appelle "T2" et ‘"D2" 


en multipliant celui du billet de 2ème par 1.5 02 “PRIX BILLET 
- Le prix d'un aller-retour est Le double de 03 AVIEW 
celui de l'aller simple sur Le mème trajet. 04 STOP 
05 "DIST=" 
Ceci pour Le plein tarif. La réduction 06 PROMPT 
s'obtient en appliquant son pourcentage; enfin, 07 STO 15 
un enfant de moins de 12 ans a droit à {la 08 XEQ "D2" | Dist. médiane du palier 
demi-place (prix, éventuellement réduit, divisé 09 MCLASSEZ=" 
par 2). 10 PROMPT 
11 STO 14 
Restent Les arrondis : ils se font aux 20 12 MREDU %" 
centimes supérieurs si Le prix est inférieur à 13 PROMPT 
20F, eux 50 centimes si Le prix est compris 14 STO 00 
entre 20F et 30F, et au Franc au-delà. Ils sont 15 "AD=1/EN=2" ! Adultes OU Enfants? 
déclenchés à La &ème décimale, ce qui explique 16 PROMPT 
la présence des pas 77 et 78 dans T2. Par 17 STO 12 
ailleurs, on doit tenir compte d'un minimum de 18 "NBRE=" 
perception de 4.40F par voyageur (en 2ème 19 PROMPT 
classe; 1.5 fois ce montant en 1ère classe). Le 20 STO 13 
calcul des “suppléments” et des “surtaxes 21 "SP=1/AR=2" |! Aller simple ou AR? 
locales", très particulier, n'a volontairement 22 PROMPT 
pas été traité ici. 23 STO 11 
24 XEQ "T2" | Calcul et affichage prix 
Voilà. Vous en savez à présent presque sutant 25 END 
que votre agent de voyages. À présent, passez à 
l'application: 
La formule de prix pour les courtes distances O1#*LBL "T2 | Calcul du prix 
(de 7 à 399 km actuellement) utilise Le LBLOÏ et 02 “AVRIL86* ! Tarifs applicables depuis- 
les registres ROICTC) et RO2(TK);: 03 RCL 06 1! Choix formule 
l'intermédiaire (de 400 à 449 km) utilise LBLO2 04 RCL 15 
et RO3(D.inf), RO&(TC) et ROS(TK); enfin, La 05 X>y? 
dernière se sert de LBLO3, RO6(D.inf.), RO7(TC) 06 GTO 03 
et ROB(TK). Le “plafonnement à 60% de La TC* est 07 RCL 03 
réalisé par LBLO4 et RO9, La réduction par 08 RCL 15 
L8LOS, La classe per LBlc, et l'arrondi par 09 X>Y? 
LBLs. Notez bien que cet arrondi intervient 10 GTO 02 
APRES La réduction et AVANT Le jeu de 11 GTo 01 
l'aller-retour ou du nombre de voyageurs. 12*L8L 03 ! Formule Longue distance 
13 RCL 07 
Avec ces explications, la liste du 14 RCL 08 
sous-programme Basic HP71 se passe d'autres 15 RCL 15 
commentaires... Quant aux codes-barre (pour La 16 * 
41, bien sûr 1), ils ont été tirés sur une 17 + 
Thinkjet, eu moyen du programme de Richard 18 STO 16 
Carpenter paru dans PPCJ V12 N3 P16 (mers 85) : 19 GTO 05 
c'est  Lent (11 mn par rangée), mais très 20*LBL 02 ! Formule moyenne distance 
professionnel comme présentation. 21 RCL 04 
22 RCL 05 
Haut Le Pied (elle est mauvaise, je sais |). 23 RCL 15 
a * 
25 + 
Eric Gengoux, P108 26 STO 16 
27 GTO 05 
28*LBL 01 1 Formule courte distance 
29 RCL 02 
30 RCL 15 
n° 
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32 STO 16 

33 RCL 09 

34 * 

35 RCL 01 

36 X>Y? | Test plafonnement de La TC 
37 GTO O4 

38 RCL 01 

39 ST+ 16 

40 GTO 05 

41*LBL 04 | Routine plafonnement TC 
42 RCL 16 

43 RCL 09 

4 * 

45 ST+ 16 

&é*LBL 05 ! Réduction 

47 RCL 16 

48 ENTER” 

49 100 

50 ENTER” 

51 RCL 00 

52 - 

53 x 

54 RCL 12 ! Demi-place enfant 
. 55 / 

56 STO 16 

57*L8L 06 ! Arrondi et Minimum perception 
58 XEQ a 

59 RCL 10 

60 x>Y? 

é1 STO 16 

62*LBL c ! Classe 

63 RCL 14 

64 2 

65 X=Y? 

66 GTO 09 

67 1.5 

68 ST* 16 

69*LBL 09 1 Aller-retour 

70 RCL 11 

71 ST* 16 

Tè RCL 13 ! Nombre voyageurs 
73 ST* 16 

74 RCL 16 ! Affichage total 
75 RIN ! Retour à SNCF 
76*LBL a ! Arrondi tarifaire 
77 .00001 ! sur 4ème décimale 
78 ST+ 16 

79 RCL 16 ! aux 20c. 

80 20 

81 X>y? 

82 GTO 07 

83 RCL 16 ! aux 50c. 

84 30 

85 X>v? 

86 GTO 08 

87 RCL 16 |! eu Fr. 

88 1 

89 + 





90 INT 

91 STO 16 
92 RTN 
93*LBL 07 ! SOc. 
9% RCL 16 
95 5 

9% * 

97 1 

98 + 

99 INT 
100 5 

101 / 

102 STO 16 
103 RTN 
104*LBL 08 ! 20 c. 
105 RCL 16 
106 2 

107 * 

108 1 

109 + 

110 INT 
1112 

112 / 

113 STO 16 
114 RTN 
115 END 


O1*LB8L #D2“ 1 Calcul médiane du “palier“ 
02 RCL 15 | à partir de La dist. réelle 
03 ENTER” 
6 6 

05 X>Y? 
06 X<> 15 
07 RCL 15 
08 ENTER” 
09 50 

10 X<=Y? 
11 GTO 04 
42 RCL 15 
13 ENTER” 
42 

15 / 

16 FRC 

17 X=0? 
18 GTO 05 
19 .5 

20 ST- 15 
21 GTO 03 
22*L8L 05 
23 .5 

24 ST+ 15 
è5 GTO 03 
26*LBL 046 
è7 RCL 15 
28 ENTER” 
29 200 

30 X<=Y? 
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31 GTO 06 14 .4 1 Tk2 

32 RCL 15 15 STO 05 

33 ENTER* 16 449 1 Lim. 2/3 

34 10 17 STO 06 

35 / 18 26.1 | TC3 

36 STO 18 19 STO 07 

37 INT 20 .38 1 TK3 

38 STO 19 21 STO 08 

39 ST- 18 22 .60 1 Seuil plaf.TC (60%) 
40 10 23 STO 09 

41 ST* 19 24 4.4 | Mini. perc. 2ème 

42 RCL 18 25 STO 10 

43 ENTER" 26 “PBASE OK" | Fin chargt. 
PP: 27 AVIEV 

45 X<=Y? 28 BEEP 

46 GTO 07 29 END 

47 RCL 19 
48 ENTER* 
49 2 

50 + 

St STO 15 
52 GTO 03 
S3*LBL 07 
S4 RCL 19 
S5 ENTER* 
567 

57 + 

58 STO 15 
59 GTO 03 
60*LBL 06 
61 RCL 15 
62 ENTER" 
63 10 


64 / 
65 INT 
66 10 


67 * 

68 4 

69 + 

70 STO 15 
71*L8L 03 
7è RTN 

73 END 





O1*LBL MPBASEN | RAZ ROO à R20 et chargement 
02 “PBASE 4/86" | prix de base au 18/04/86 
03 AVIEW 

04 0.02001 ! RAZ registres 

05 CLRGX 

06 9.00 1! TC1 

07 STO 01 

.42 1 TK1 

STO 02 

10 399 ! Lim.1/2 

11 STO 03 

12 17 1 TC2 

13 STO 
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ASSEMBLEUR / EDITEUR DE LIENS 
POUR LE HP71 


1 - PRINCIPE 


A: Présentation 


Le système de développement pour HP71 que nous 
présentons ici est basé sur un assembleur et un 
éditeur de liens écrits en Langage C. 


Ce système fonctionne à l'heure actuelle sur des 
ordinateurs différents : 


- Les ordinateurs fonctionnant sous système HP-UX 
en particulier, et sous système Unix en général. 


Les ordinateurs Atari 520 et 1040 ST sous 
système d'exploitation TOS. 


- une adaptation est en cours pour l'ordinateur HP 
Vectra et autres IBM PC sous système MS-DOS. 


Tous nos efforts se sont portés vers La réduction 
des temps d'assemblage. Voir Les temps 
d'exécution donnés en exemple pour plus de 
détails. 


B: Introduction à l'assembleur 
L'assembleur a deux modes de fonctionnement : 


Le mode "assemblage complet", qui permet d'avoir 
La compatibilité avec Le “machin! (l'assembleur du 
module Forth). En particulier, toutes Les 
macro-opérations de génération de fichiers Lex ou 
bin sont supportées. 


Le mode “assemblage séparé" permet de se 
rapprocher des conditions de travail de l'équipe 
de développement du HP71 aux Laboratoires de 
Corvallis (OR 97330) en autorisant l'assemblage de 
modules séparés, et leur réunion en seul fichier 
par l'intermédiaire de l'éditeur de liens. 


C: Avantages et inconvénients 


Parmi Les nombreux avantages que procure ce 
système, nous pouvons citer : 


Utilisation des points d'entrée HP sans avoir à 
Les déclarer explicitement par une opération du 
type EQU. 


TÉL Se 





Edition d'une table des références croisées 
donnant pour chaque symbole Le nom, La valeur, La 
Ligne où il est déclaré et Les lignes où il est 


utilisé. 


Introduction de nouveaux opérateurs dans Les 
expressions, et possibilité d'introduire des 
valeurs en binaire. 


Les noms des labels sont maintenant significatifs 
sur 12 caractères. 


Quant aux inconvénients, il manque Les 
pseudo-opérations FORTH, WORD et WORDI. Et, bien 
sûr, il faut un "gros" ordinateur. 


D: Principe de l'assemblage séparé 


L'assemblage d'un fichier en modules séparés se 
fait en deux phases. 


IL faut d'abord assembler tous Les fichiers 
(modules) constituant Le source. Ensuite, il faut 
procéder à l'édition de Liens, qui rassemble ces 
modules en un seul fichier. 


Si il s'avère nécessaire de modifier une partie du 
texte source, il suffit seulement de ré-assembler 
le module contenant ce texte, et de refaire 
l'édition de Liens. Le gain de temps est énorme. 


Cette gestion modulaire permet également un 
traitement plus efficace des Labels. Un module 
peut appeler une routine écrite dans un autre 
module à partir du moment où le Label est précédé 
d'un signe ‘=! dans Les modules concernés. Ceci a 
pour rêle de déclarer Le label externe (dans le 
module appelant) ou public (dans Le module ou Le 
label est déclaré) et accessible à tous. Ce sont 
les labels globaux. 


A cette catégorie s'ajoute celle des labels 
Locaux. Ils ne comportent pas de signe '=!, et des 
modules peuvent avoir des Labels portant Le même 
nom. Ceci permet d'avoir, par exemple, plusieurs 
Labels "argerr" dans des modules différents, sans 
causer Le moindre conflit. 


C'est Le même système que celui employé par HP, et 
décrit dans Les IDS Vol. I (ch. 16). Seul ce 
système permet le développement de grands 
programmes en assembleur. 


11 - DIFFERENCES AVEC LE “MACHIN'" 


A: Sélection du mode 


La sélection du mode d'assemblage (complet ou 
séparé) est faite par La présence de La macro LEX 
ou BIN en première Ligne du fichier source. 


B: Majuscules / Minuscules 


Mis à part Les labels, tous Les op-codes et toutes 
les expressions sont compris aussi bien en 
majuscules qu'en minuscules. 


C: Macro-opération interdites 


En assemblage séparé, Les pseudo-opérations de 
génération de fichiers LEX ou BIN sont interdites. 
Ainsi, LEX, ID, MSG, POLL, ENTRY, CHAR, TOKEN, 
KEY, ENDIXT, BIN et CHAIN sont interdites hors 
d'un assemblage complet. On exerce ainsi un 
contrôle plus précis sur La génération du code. 


Par ailleurs, Les macro FORTH, WORD et WORDI sont 
interdites. 


Seule La première utilisation de TITLE est prise 
en compte. 


D: Macro-opérations ajoutées 


En premier Lieu, il y a RDSYMB (ReaD SYMBols). 
Elle permet de charger un fichier contenant des 
points d'entrée sans avoir à attendre l'édition de 
liens. Par exemple, en assemblage complet, ceci 
permet d'avoir Les points d'entrée supportés par 
KP (fichier "hp71.ep"). La syntaxe est : 


RDSYMB <fichier> 


Ensuite, nous avons l'assemblage conditionnel. 
Par exemple, si nous avons : 


AREUH EQU 1 


1F AREUH 
P=P+1 

RTN 

ELSE 

ASRB 

C+P+1 

ENDIF 


Seul Le code P=P+1 et RIN sera assemblé. 


Inversement, si AREUH avait été déclaré avec une 
valeur nulle, Le code ASRB et C+P+1 aurait été 
assemblé. Ceci permet de gérer simplement des 
versions différents d'un même programme (versions 
de mise au point). Attention cependant : il ne 
peut y avoir imbrication d'une telle structure 
conditionnelle. 


E: Opcodes ajoutés 


DO=HEX et D1=HEX (présents, mais non documentés 
dans Le "machin") fonctionnent à merveille. 


LC(é) et CON(6) (utilisés par HP) sont présents. 
F: Valeurs numériques 

Les valeurs numériques calculées dans les 
expressions, ou  renvoyées par des labels 


comportent six chiffres hexadécimaux et non cinq 
comme dans Le "machin". Comme dans les 1DS. 


En revanche, les valeurs affichées dans Les tables 
de symboles Le sont sur cinq chiffres seulement. 
Cette Limitation ne concerne que l'affichage et 
non Le stockage interne. Ceci est conforme à 
l'affichage fourni par l'essembleur des IDS, et a 
été conservé en raison de l'habitude acquise à La 
lecture des adresses du HP71. 


G: Les Expressions 


Les expressions peuvent contenir des labels, La 
valeur du compteur ordinal (PC), des constantes et 
des opérateurs. IL n'y 8 pas de Limitation du 
niveau d'imbrication des parenthèses. 


Maintenant, Les Labels sont significatifs sur 12 
caractères. 


Le symbole 1#*! (en position d'opérande) est 
considéré comme La valeur du compteur ordinal. 
Dans Le cas d'une compilation séparée, cette 
valeur est La valeur réelle, tenant compte de la 
position du module dans Le fichier complet. 


Les constantes de valeur supérieure à six chiffres 
hexadécimaux sont tronquées. 


Les constantes Ascii sont délimitées soit par des 
apostrophes ('), soit par des anti-slash (\). 


Un nouveau type de constante est ajoutée : les 
constantes binaires. Elles doivent être précédées 


d'un signe '%', comme dans : %01110001 


Les opérateurs nous en donnons La liste 
complète, par ordre de priorité décroissante. Les 


JPC 36 Page 17 


ee —— 


opérateurs de même priorité sont évalués de gauche 
à droite. 


- (*256+) * (puissance) 

- (moins unaire) ‘ (complement à 1) 
& (et logique) | (ou logique) 

* (multiplication) / (division entière) 
+ (addition) - (soustraction) 

H: FiLeNd 


Le Label FileNd est ajouté systématiquement à La 
fin de chaque fichier ou module assemblé. 


En outre, Le label global "=FileNd" est ajouté 


automatiquement en fin de fichier Lors de 
l'édition de liens pour l'assemblage séparé. 


111 - MODE D'EMPLOI DES PROGRAMMES 


Les deux programmes "'aas'" et "ald" admettent les 
mêmes options. 


Spécifie Le nom du fichier résultant de 
l'assemblage ou de l'édition de liens. 


-a <fichier> 

Demande l'impression d'un listing d'assemblage ou 
d'édition de liens. Le listing est envoyé dans le 
fichier spécifié. 

A 

Demande l'impression d'un listing d'assemblage ou 
d'édition de Liens. Le Listing est envoyé à 
l'affichage (ou stdout sur les systèmes Unix). 

-L <longueur de page> 

Spécifie La longueur physique des pages, en nombre 
de Lignes. La longueur du texte sera inférieure 
de 6 lignes. 


x 


Demande l'impression d'une table des références 
croisées. 


"P 


Active La saisie interactive des options décrites 


TC 36. PAYS Les 





précédemment. Notons que ne donner aucun 


paramètre active implicitement cette option. 


Pour aas, il faut ensuite fournir Le nom du 
fichier source. 


Pour ald, il faut fournir Les noms de tous les 
modules. 


Par défaut, le fichier généré a pour nom "Lex". 
Les fichiers source ont “.as'" comme suffixe 
(extension), et les fichiers intermédiaires (entre 
l'assembleur et l'éditeur de liens) ont “.ao!! 
comme suffixe. En général, il n'est pas 
nécessaire d'indiquer ces extensions. 


IV - EXEMPLES 

Assembler Le fichier f1.as (qui commence par une 
macro LEX), et fichier assemblé dans "Lex" : 

aas f1 

Assembler Le fichier  f1.as avec listing, 
références croisées dans le fichier "Llist*, et 
fichier résultat dans “Llex" : 

aas -xalist f1 


aas -x -a List f1 


Même exemple que précédemment avec une longueur de 
page de 66 Lignes (papier 11") : 


aas -xalist -L66 f1 


Assembler Le fichier fi.as, avec résultat dans 
“toto, avec paramétrage interactif : 


aas 
puis entrer "fi" 
puis entrer “toto” 
puis entrer [RETURN] 


Les fichiers f1.as, f2.as et f3.as continennent Le 
source d'un fichier lex. 


Assemblage des trois fichiers : 


eas f1 
aas f2 
eas f3 


Edition de liens des fichiers f1, f2 et f3 (fi.ao 
pour i=1..3), avec demande d'un Listing et d'une 
table des références croisées dans Le fichier 
"list", et fichier assemblé nommé "totolex". 


ald -xalist -ototolex f1 f2 f3 


Pierre David (PC37, S1G1, CHHU616) 
Janick Taillandier (PC246, SIGé, CHHU178) 
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COMPRESSION DE DONNEES 


INTRODUCTION 


Cet article propose une méthode de compresssion 
des chaînes de caractères. Nous avons décidé de 
comprimer des chaînes de caractères ordinaires 
parce qu'il nous semble qu'elles représentent un 
des types de données du Basic HP Les plus 
universels et Les plus souples (en dehors des 
fichiers). Les chaînes de caractères permettent 
de stocker n'importe quel type d'information : 
alphabétique, numérique, binaire... Les chaînes 
(et Les fichiers) sont Les seules structures de 
données dynamiques sur Le 71. L'algorithme 
présenté ici ne donne pas La compression 
maximum, mais il a l'avantage d'être simple et 
facile ; ceci permet de Le transposer en 
assembleur. Nous allons présenter cet algorithme 
de manière informelle, puis un prototype en 
Basic (HP-75 + ROM 1/0), et enfin tel 
qu'implementé dans deux LEXs : un pour Le HP-75 
et l'autre pour Le HP-71. 


L'idée initiale de Stefano Piccardi était 
d'appliquer l'algorithme de Huffman ("Variations 
on a theme by Huffman!" par Robert Gallager, IEEE 
” Transactions on Information Theory, Vol. IT-24, 
No 6, P. 668). Cependant La méthode s'est avérée 
être trop complexe. Ceci a conduit à La mise en 
oeuvre de La solution présentée ici. Après La 


réalisation d'un prototype en Basic, Stefano 
Piccardi a contacté Stefano Tendon pour que ce 
dernier en réalise une version LEX sur 71. Dans 
le LEX 71, l'algorithme s'est trouvé être 
modifié, alors que Le LEX pour 75 (par Stefano 
Piccardi) reflète exactement l'original Basic. 


Nosus nous sommes attachés à rendre les 
syntaxes identiques, et à assurer La 
compatibilité entre Les deux versions du LEX. 


DESCRIPTION DE L'ALGORITHME 


Le processus vise à se débarrasser des bits de 
poids fort inutilisés de chaque octet d'une 
chaîne de caractères. Par exemple, en ASCII, La 
chaîne "ABEGH'!' est composée de : 


"A" up “En 
(65) (66) (69) 
(0100 0001] (0100 0010] 10100 0101] 


“Gun “pu 


(71) (72) 
[0100 0111] [0100 1000) 


Note : les valeurs binaires seront représentées 
entre [] et les valeurs décimales entre (). 


Nous  observons que, si nous soustrayons de 
chaque caractère La valeur minimum (65) trouvée 
dans La chaîne, nous n'avons pas de perte 
d'information. Les 5 caractères restent 
distincts ; Le chaîne peut être représentée par : 


“An np" ME" nç' “pu 
(0) (1) C4) (C6) C7) 
[000] 1001] [1001 [110] [111] 


Maintenant, en regroupant Les bits en octets, 
nous obtenons Une chaîne de caractères 





représentant la chaîne originale sous forme 
comprimée : 
(3) (55) 
[2000 0011] [0011 0111] 
\J \/\ /\_/\/ 
A: "EE G H 


Dans ce cas, nous remarquons que le bit de 
poids fort du premier octet, materialisé par un 
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“a, n'a qu'une fonction de remplissage pour que 
le nombre de bits soit un multiple de 8 : ainsi 
la chaîne obtenue est constituée d'un nombre 
entier d'octets. L'algorithme met à O0 ces bits, 
qui sont au plus au nombre de 7. Ainsi, la 
chaine de départ qui contenait 5 octets (65), 
(66), (69), (71) et (72) se trouve réduite à 2 
(3) et (55). 


En réalité, Les octets comprimés de cette 
doivent être préfixés par 4 autres 
octets, qui constituent Un en-tête propre à la 
En particulier, cet en-tête contient 
informations nécessaires à La 
restitution de La chaîne sous sa forme originale. 


manière 


chaine. 
toutes les 


L'algorithme de décompression fonctionne de 
manière inverse, en reconstruisant La chaine 
d'origine à partir de La chaîne comprimée et des 
quatre octets d'en-tête. Ainsi, dans l'exemple 
présenté plus haut, La chaîne comprimée fera en 
réalité 6 octets et non 2 (cet exemple n'a 
d'autre but que l'illustration). 


Toutes Les méthodes de compression de données 
nécessitent Une connaissance de la structure des 
données à traiter - sinon il n'y aurait pas 
d'information redondante à éliminer. IL est 
toujours possible, quelque soit La méthode, de 
trouver un cas défavorable (Kerninghan & Plauger 
“Software Tools in Pascal”, Page 37). 


IL est clair que l'efficacité d'un algorithme 
dépend des caractéristiques des données à 
traiter. En particulier, La compression sera 
d'autant plus grande que La chaîne sera longue 
et que l'intervalle entre La plus petite et La 
plus grande valeur ASCII dans la chaîne sera 
étroit. Ceci incite à traiter préalablement les 
données à comprimer. Par exemple, si vous 
souhaitez  comprimer des données numériques 
réelles, il est souhaitable de choisir le 
symbole de l'exposant, de La virgule, du signe 
et du séparateur de données de telle sorte 
qu'ils se trouvent à proximité des chiffres dans 
La table des codes ASCII. Par exemple : 


Exposant 1/1 
Virgule PL 
Signe 1.1 


Séparateur !,! 


Dans ce cas La distance MAX - MIN = 14, si bien 
qu'il suffit de 4 bits pour coder un symbole 
La compression atteint 50%. 
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LE PROTOTYPE BASIC (HP-75 + 1/0 ROM) 


Nous souhaitons effectuer La transformation : 

I$ -> compression -> O$. Soit I=LEN(I$) et 
O=LEN(O$). La relation entre I et © est donnée 
par : 


O=CEIL(A/8*1) 


A=CEIL(LOG(MAX-MIN)/LOG(2)) 


et MIN et MAX sont respectivement La plus 
petite et La plus grande valeur ASCII des 
caractères composant 1$. L'expression précédente 
n'est définie que pour 1<=A<z7. Le programme 
Basic n'est valable que sous cette condition. Si 
A=0, La décompression de 0$ ne donnera pas 1$ 
mais RPT$(IS$(1],1). Par ailleurs, il faut que 
1>1 (voir Ligne 1130). Ces deux contraintes 
n'existent pas pour Les fichiers LEX. Pour 
ceux-ci, on a O=1+4 si A=0 et, quelque soit S$, 
SS=SUNPACKS(SPACKS(S$). 


ALGORITHMES 


La compression des données met en oeuvre les 
phases suivantes : 


[1] Calcul de MAX CU} et MIN (U} (1010-1050) ; 


[2] MIN est soustrait de chaque caractère de la 
chaîne (1060-1080) ; 


{31 Calcul du nombre de bits à supprimer de 
chaque octet (1090-1110). 1090 n'est utilisée 
que si La chaine est composée uniquement du même 
caractère ; 


[4] Initialisation du facteur de décalage à 
droite (S} pour chaque octet. Ce facteur est 
utilisé pour déterminer combien de bits restent 
disponibles dans l'octet de destination. Ce 
facteur varie entre 1 et 8 de manière 
“circulaire (modulo 8). On initialise également 
Les valeurs du facteur de décrementation (D} (le 
nombre de bits qui contiennent de L'information 
dans chaque octet de La chaîne originale), le 
pointeur  d'octet source (P2} et le pointeur 
d'octet destination (P1} ; 


(S] Apartir de la fin de La chaîne et en 
remontant vers Le début, pour tout octet de la 
chaîne, on effectue Les opérations suivantes : 

(1130-1190) décalage à droite de tous Les bits. 
X$ (ligne 1130) est un buffer temporaire de deux 
octets utilisé pour effectuer ce décalage vers 


la droite. Les 8 bits de poids fort de X$ 
contiennent un octet de La chaîne originale, Les 
eutres bits sont initialisés à 0. Tous Les bits 
de X$ sont décalés à droite de S positions, avec 
mise à O0 des bits de gauche. Après cette 
opération, La moitié droite de X$ contient dans 
la bonne position Les bits “utiles! de l'octet 
original. On effectue un OU logique avec 
l'actuel octet de destination (1140). Le facteur 
de décalage pour La prochaine itération est 
ensuite calculé (S1). En raison de La structure 
de X$, cette valeur doit être corrigée de 8 
quand on atteint 0 (1150). Si Le nouveau facteur 
de décalage n'est pas inférieur au précédent, un 
octet complet a été crée. Dans ce cas, le 
pointeur de destination est mis à jour, et Les 
bits significatifs restant de l'octet original 
sont stockés (1160). Le pointeur source est mis 
à jour et Le processus reprend jusqu'à ce que le 
début de La chaîne soit atteint ; 


[6] Si, à La fin de La boucle de compression, 
le facteur de décalage vaut 8, alors Le dernier 
-octet de destination n'a pas été utilisé. Dans 
ce cas Le pointeur de destination est mis à jour 
(1200) ; 


[7] La chaîne ainsi obtenue est préfixée par 4 
octets d'en-tête  : Les deux premiers 
représentent La longueur de La chaîne originale, 
le troisième est La valeur du  décrément 
circulaire, et Le dernier octet contient La 
valeur ASCII minimum (MIN) (1210-1220) ; 


L'algorithme de décompression est Le suivant : 


[1] Détermination de La longueur de La chaîne 
originale €N}, du nombre de bits à insérer en 
face de chaque octet comprimé £{A} et MIN 
(2010-2040) ; puis allocation d'une chaîne de N 
caractères (2020) ; 


[21] Création d'un octet "masque" 4{M} destiné à 
mettre à 0 les A bits de poids fort d'un octet 
quelconque (2050-2060) ; 


[3] Initielisation du pointeur source 4{P1) et 
du facteur de décalage {S} (2070) ; 


[4] De La fin vers Le début de La chaîne, on 
extrait Les deux octets pointés par 4{P1} et on 
Les stocke dans X$ (2090). X$ est décalé à 
droite de S bits, Les bits de poids fort étant 
mis à 0 (2100). Les (8-A) bits de poids faible 
de X$ correspondent aux bits "significatifs" du 
caractère original, on utilise ensuite M$} pour 
se débarasser des A bits de poids fort et 
l'octet ainsi restitué est stocké dans La chaîne 








de destination (2110). Le prochain facteur de 
décalage {51} est calculé ; s'il est inférieur 
au précédent, l'octet source a été complètement 
traité, Le pointeur source est mis à jour (2130) 
et Le processus continue (2150) ; 


[5] Tous les caractères de La chaîne ainsi 
obtenue sont augmentés de MIN, ce qui termine La 
reconstruction de La chaîne originale ; 


PROGRAMME BASIC (HP75 + 1/0 ROM) 


COMPRESSION 


1000 DEF FNC$(S$) 


1010 U=0 à L=255 

1020 FOR 1=1 TO LEN(S$) 

1030 IF NUM(S$(I])>U THEN U=NUM(SS[1]) 
1040 IF NUM(S$[I])<L THEN LENUM(S$[1]) 
1050 NEXT I 


1060 FOR 1=1 TO LEN(S$) 
1070 S$[I,1]=CHRS(NUM(SS[1])-L) 
1080 NEXT 1! 


1090 IF L=U THEN A=7 à GOTO 1120 
1100 A=0 à XS=CHRS(O)ECHRS(U-L) 
1110 XS=ASHFS(XS, -1,0) à 
IF X$[1,1]=CHR$(O) THEN A=A+1 à GOTO 1110 


1120 D=8-A à PI=LEN(S$) à P2=P1-1 Q S=A 


1130 XS=ASHFS(SS [P2,P2]&CHRS(O),S,0) 

1140 SSIP1,P1]=AORS(SS(P1,P1],X$(2,2)) 

1150 S1=MOD(S-D,8) à IF NOT S1 THEN S1=8 

1160 1F S1>=S THEN P1=P1-1 à SS[P1,P1]=X$11,1] 
1170 s=s1 

1180 P2=P2-1 

1190 1F P2 THEN 1130 


1200 1F S=8 THEN P1=P1+1 
1210 X$S=CHRS(LEN(S$S))ECHRS(LENC(SS) DIV 256) 
1220 FNC$S=XS&CHRS(A)&CHRS(L)&SS [PI] à END DEF 


DECOMPRESSION 


2000 DEF FNUS(SS) 
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2010 N=256*NUM(SS [2] )+NUM(SS$ (11) 
2020 US[IN,N]="" 

2030 A=NUM(S$(3]) 

2040 L=NUM(S$(4]) 


2050 XS=CHR$S(O) à XS=ASHFS(XS, A, 1) 
2060 MS=AXORS(CHRS(255),X$) 


2070 P2=LEN(S$) à S=0 


2080 FOR P1=N TO 1 STEP -1 

2090 x$=S$(P2-1,P2] 

2100 XS=ASHFS(XS,S,0) 

2110 US(P1,P1]=CHRS(L+NUM(AANDS (MS, XS$ [2,2] ))) 
2120 S1=MOD(S-A,8) 

2130 1F S1<S THEN P2=P2-1 

2140 s=s1 

2150 NEXT P1 


2170 FNUS$S=US$ à U$="# à END DEF 
TEST 


5000 INPUT A$ 

5010 PRINT A$ à PRINT HEXS(AS) 

5020 C$=FNCS(AS) 

5030 PRINT HEX$(C$) 

5040 PRINT USING "“'COMPRESSION !,sDDDDD.D,' %!"; 
(LENÇA$)-LEN(CS))/LEN(AS)*100 

5050 PRINT FNUS(CS) 

5060 GOTO 5000 


MODE D'EMPLOI 

Les LEX pour HP-71 et HP-75 sont compatibles, 
c'est à dire qu'une chaîne comprimée par une 
machine peut être décomprimée par l'autre et 
réciproquement. La syntaxe des ordres est la 
suivante : 

SPACK$("chaîine") 

SUNPACK$("chaîne") 


Par exemple : 


A$=SPACK$("Stefano & Stefano!) 
PRINT SUNPACKS(AS$) 


contient les 
ASCMIN et 


De plus, Le LEX pour  HP-71 

fonctions suivantes :  ASCMAX, 
GOO0BITS. Ces fonctions retournent 
respectivement La valeur ASCII maximum et 
minimum de La chaine, et Le nombre de bits 
nécessaires pour coder La chaîne. Ces fonctions 
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ne sont pas utiles pour Le codage et peuvent 
être éliminées du LEX. Cependant, elles se sont 
avérées utiles pour la mise au point du LEX 
elles permettent d'effectuer une compression 
manuel Le. 


CONCLUSION 


Les fonctions de compression de chaînes 
présentées ici n'ont pas l'efficacité maximum. 
Cependant, utilisées à bon escient, elles 
donnent des résultats interessants. Les 
applications possibles sont innombrables. Par 
exemple : bases de données, télétransmission 
(moins de données = moins de temps = moindre 
coût), jeux d'aventure avec de grands fichiers 
texte, etc... 


Par ailleurs, nous pensons également avoir un 
peu rapproché Les deux communautés 
d'utilisateurs du 75 et du 71 au moyen d'un LEX 
commun aux deux machines. 


Stefano Piccardi (CHHU 487) & 
Stefano Tendon (CHHU635, S1G9) 


NDLR: Le Lex pour HP-75 n'est pas présenté ici. 
IL nous semble en effet que Le nombre de 
lecteurs susceptibles d'être intéressés par le 
code source est faible. Si toutefois celui-ci 
vous intéresse, n'hésitez pas à nous Le demander. 


LEX "SPACKLEX' 


TITLE Compression de chaines. 


A ee ee eee ee re eee ee eee ee re re fe fre ee de fe ee de 


* Par: Stefano Tendon [CHHU 635] 
, Cantone Delle Asse 5 

. 29100 Piacenza 

* Italy 

* 

* Tel. (0523) 21180 

* 

® Date: 1985.08.13. 


A ee eee ee re ee ee eee re ee er re Re 


10 #5C 
MSG 0 

POLL 0 
ENTRY ascmax 
CHAR  #F 
ENTRY ascmin 
CHAR  #F 


ENTRY okbits 
CHAR #F 

ENTRY dpack 
CHAR _#F 

ENTRY  dunpck 
CHAR #F 

KEY  'ASCMAX! 
TOKEN 01 

KEY  'ASCMIN! 
TOKEN 02 

KEY 'GOODBITS! 
TOKEN 03 

KEY  'SPACKS' 
TOKEN 04 

KEY  'SUNPACKS' 
TOKEN 05 

ENDTXT 


Re ee ee ee er er re eee re ee fr re re re er 


* EQUATE TABLE 
* 

A-MULT EQU  #18349 
ADHEAD EQU  #18187 
- AVMEMS EQU  #2F594 
EXPR EQU  #0F23C 
FUNCDO EQU  #2F8BB 
HDFLT EQU  #18318 
POPIS EQU  #0BD38 
REVPOP EQU  #0BD31 
REVS EQU  #1B38E 
STKCHR EQU  #18504 
STRHDR EQU  #0F09A 


eee ne eee ee ee ee ee re eee er ee 





A=0 W 

C=D B 

A=C B prend MIN. 

D1=D1- 16 D1 * sommet de La pile. 
GOSBVL HDFLT convertit MIN en décimal 
DATI=A W MIN -> pile 

GOTO expr 


ee ee ee eee eee ee ee ee ee er rer ee er er ee ee ke 


NIBHEX 411 
okbits A=0 W 
GOSBVL POP1S 


lit La chaîne. 


ASRB A longueur en octet. 

GOSUB findrg détermine MIN et MAX 

C=0 W 

C=B B 

C=C-D B MAX - MIN 

A=0 wW 

GOSUB okloop nb de bits significatifs 
D1=D1- 16 D1 ” sommet de pile. 


GOSBVL HDFLT 
* 

DATI=A W 

GOTO expr 


Convertit nb de bits 
en décimal. 
résultat -> pile. 


eee ee ee de ee er ee ee eee ee ee ee ee re er ee er ee ee 


* 


* Détermine combien de bits sont significatifs 


* dans C[B]. 


NIBHEX 411 

ascmax Az0 W 
GOSBVL POP1S Lit La chaîne. 
ASRB A longueur en octets. 
GOSUB findrg détermine MIN et MAX. 
A=0 W 
A=B B prend Le MAX. 
D1=D1- 16 D1 à sommet de pile. 
GOSBVL HDFLT Convertit MAX en décimal 
DATI=A W MAX -> pile. 
GOTO expr 


ee ee ee ee re re eo er oo ee ee ee ee er er er ee ere re 


NIBHEX 411 
ascmin A=0 W 
GOSBVL POP1S 
ASRB À 
GOSUB findrg 


Lit La chaîne. 
longueur en octets. 
détermine MIN et MAX. 


Rte nee ee ve ee ee ee ee ee ee ere ee ee ee ee 


okloop CSRB B 
A=A+1 B 
?2C#0 B 
GOYES okloop 
RTN 


ee eee ee eee ere ee eee ee ee oh ee 


* 


* Détermine MIN et MAX (plus petit et plus 


* grande valeurs ASCII. 
* 


he oo eee eee ere ee ee 


findrg B=0 B Initialise maximum. 


LCHEX FF 

D=C B Initialise minimum. 

?2A#0 A SI chaîne nulle ALORS 
GOYES findip 

D=0 B maximum = minimum = 0 
RTN 
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* SINON 


findlp A=A-1 A TANTQUE caractères FAIRE 
RTNC 
C=DAT1I B lire Le caractère. 
?2C<=B B SI car > MAX ALORS 
GOYES maxok 
8=C B max = car. FIN-SI 
maxok ?C>=D 8 SI car < min ALORS 
GOYES minok min = car. FIN-SI 
D=C B 
minok D1=D1+ 2 “ caractère suivant. 
GONC findlp FINTANTQUE 
* FINSI 


hRkRR RER eee RR 


NIBHEX 411 
dpack GOSBVL REVPOP renverse La chaîne. 

COOEX sauve Le PC. 

D0O=(5) FUNCDO 

DATO=C A 

8=0 d 

B=A A 

BSRB longueur en octet. 

A=B Q] 

R3=A sauve La longueur. 

GOSUB findrg calcule MIN et MAX. 

C=0 B 

R2=C sauve MIN dans R2. 

CO1EX 

R1=C Sauve le début de pile 
* pour ADHEAD. 

D1=C D1 à fin de chaine. 

DO=C D0 à fin de chaîne. 

c=0 d 

Cz8 8 

C=2C-D 8B MAX - MIN 

A=0 W 

GOSUB okloop 

RO=A sauve Le nb de bits (G). 

A=R3 

B=A A Init Le cpteur de boucle 

D=0 B Initialise Le nombre de 
, bits disponibles (A) dans 
® l'octet de destination. 

packlp B=B-1 À TANTQUE caractères FAIRE 

GOC pckout 

D0=00- 2 mise à jour du ptr 
. source. 

A=0 

A=DATO B Lire Le car. source. 

C=R2 

A=A-C 8 soustraire Le minimum 

ASL A octet nul à droite de 

ASL A l'octet courant. 

C= 8 definit Le compteur 


* 


sftlop C=C-1 8 


sftout 


nxtone 


pckout 


adhead 


Goc sftout 
ASRB 

GONC  sftlop 
C=DATI 8 

* 

C=CIA B 
DATI=C 8 

C=RO 

?C<D B 


GOYES nxtone 
D1=01- 2 

ASR A 

ASR A 

DATI=A B 

LCHEX 08 
D=D+C 8 

C=RO 

D=0-C 8 

GONC  packlp 


LCHEX 08 
2D#C 8 
GOYES  adhead 
D1=D1+ 2 


STz1 0 
D0=(5) AVMEMS 
C=DATO A 
D=C A 
C=R2 

* 
GOSBVL STKCHR 
LCHEX 08 
A=RO 
C=C-A 8 

* 
GOSBVL STKCHR 
C=R3 
CSR A 
CSR A 
GOSBVL STKCHR 
C=R3 
GOSBVL STKCHR 
GOSBVL ADHEAD 
GOSBVL REVS 
DO=(5) FUNCDO 
C=DATO A 
DO=C 
GOTO expr 


de décalage (S): S=A. 
Décale de S bits: 


lit Le caractère 
destination. 

source = source | dest. 
écrit l'octet dest. 


SI G > A ALORS 


MàJ du ptr dest. 


init. La destination 
octet source 


A=A+8 
FINSI. 
A=A-G 

FINTANTQUE. 


SI A = 8 ALORS 


maj du ptr de pile. 


pour retour de ADHEAD. 


ajoute La valeur mini à 
la chaine. 


calcule nb de mauvais 
bits. 
ajoute ce nb à la chaîne. 


ajout second octet long. 


ajout premier octet Long. 
ajout header. 
renverse La chaîne compr. 
Restaure PC. 


ANNE A ee ee ee re re ee ee ee ee re eee ee ee de 


Décale ALA] à gauche de C(B] bits. 


* 


as RAC 


C:=C-1 8 
RTNC 
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A=A+A À A=DATO B Lit premier caractère. 


GOTO aslbAC GOSUB aslbAC cadre à gauche. 
C=R3 
de de ee ee er er eee ere ee re ee or er er B=C A Initialise La boucle. 
* Lp = longueur (octets) de La chaîne comprimée * 
* Lo = longueur (octets) de La chaîne originale unpklp B=B-1 A TANT-QUE caractères FAIRE 
* Of = Overhead GOC unpkot 
* U = nb de bits restant à décomprimer C=A B 
* G = nb octets significatifs A=0 W octet nul devant le 
* S = nb de bits de décalage A=C B caractère courant. 
* C=RO 
?C<D B SI G >= U ALORS 
NIBHEX 411 GOYES outif 
dunpck GOSBVL REVPOP renverse La chaîne. C=D B S = U. 
CDOEX Sauve Le PC. GOSUB asLbAC supprime S bits. 
DO=(5) FUNCDO C=RO 
DATO=C A C=C-D B S = G - U. 
CD1EX A=C B 
DO=C DO * header LCHEX 08 
C=C+A À CIA] ” fin de chaîne D=D+C B U=U+8. 
D1=C D1 ” fin de chaîne C=A B 
D=C A D ” fin de chaîne DO=D0+ 2 MàJ du ptr source. 
A=0 W A=DATO B Lit Le car suivant. 
A=DATO 8 Lit l'en-tête. e FINSI. 
C=0 W 
C=A A outif GOSUB aslbAC supprime S bits. 
C=P 4 C= A 
R3=C Longueur originale. CSR A 
ASR W CSR A 
ASR W AR2EX 
ASR W C=C+A B ajoute La valeur mini. 
ASR W AR2EX 
C=0 A DATI=C B ecrit Le car. decomp. 
LCHEX 8 C=RO : 
C=C-A B nb de bits significatifs. D=D-C 8 U=U-G. 
RO=C Sauve G. D1=D1+ 2 maj du ptr destination 
ASR W GONC  unpklp 
ASR W ® FIN-TANT-QUE. 
R2=A valeur ASCII minimum. unpkot C=R1 
DO=D0+ 8 DO * début chaîne compr. D1=C D1 * sommet de pile 
CDOEX GOSBVL REVS Renverse la chaîne 
DO=C DO=(5) FUNCDO Restaure le PC. 
D=D-C A DIA] = Longueur (nibbles) C=DATO A 
D=D+D A DO=C 
D=D+D A Calcule: Lp * 8. e 
C=R3 longueur chaîne originale expr GOVLNG EXPR 
C=C+C A convertit en nibbles. # 
GOSBVL STRHDR D1 * début chaîne décomp. 
* R1LA)] * sommet pile END 
A=RO 
C=R3 
COSSUL. AEAULT. iCeleules L-% 6, trsnssesessdeneeee ses RSS es ERA SEP e SRE RTE 
C=A A 
D=D-C A Of = Lp * 8 - Lo * G. 
LCHEX 08 
CDEX 8 
D=D-C B U =8 - of 
A=0 W 
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ERRORE HUMANUM EST 
LEX "DOERRLEX 


ID #5C 
Aussi bizarre que cela puisse paraître, il est MSG 0 
parfois utile de simuler une erreur. C'est POLL 0 
exactement ce à quoi pourvoit la commande DOERR, ENTRY DOERRe 
dont la syntaxe est : CHAR #D 
KEY 'DOERR! 
DOERR No erreur. TOKEN 80 
Par exemple, exécutée au clavier, la séquence BSERR EQU #0939A 
DOERR 24 EXPEX- EQU #0F178 
renvoie  "ERR:Insufficient Memory". Programmée, FIXDC EQU #05493 
elle fournit Les bons arguments à ERRN et ERRL. FIXP  EQU #O2A6E 
Que demander de plus ? Des précisions quant à IDIVA EQU HOECÉE 
son utilité peut être... car j'entend d'ici Les IVAERR EQU #0E920 
commentaires du style “et Le Lex BUG ON/OFF RNDAHX EQU #136C8 
c'est pour quand 7. ENDTXT 
Bien que ces boniments, émanant à l'évidence de REL(S) DOERRd 
zombis morbides et  putréfiés, ne puissent REL(S) DOERRP 
atteindre La blanche colombe qui évolue dans Le 
clair azur, je préfère néanmoins prendre mes DOERRe GOSBVL EXPEX- 
précautions : GOSBVL RNDAHX 
GONC ivaerr  Arg < 0 
Cette commande est très pratique lorsque vous LC(5) 1000 
êtes dans Un  sous-programme. Si celui-ci GOSBVL IDIVA calcule Arg/1000 
sauvegarde, en entrée, l'environnement appelant 
(assignations, jeu de caractères ...), il devra * AfW]= quotient ; B(W]= reste 
le restaurer en sortie. Le problème vient du * HEX mode depuis RNDAHX ; P=15 
traitement des erreurs. Le plus simple est de 
“chapeauter“ ce sous-programme par Un ON ERROR P= 0 
GOTO qui renvoie à la routine de sortie, suivie c=0 W 
d'un  DISP ERRM$. Lorsque vous  décelez une C=2C-1 8 C(W)= 255 
anomalie ou une condition de sortie, il suffit 2C<A W No LEX > 255 ? 
de faire DOERR n. Par exemple les lignes : GOYES ivaerr 
?2C<B No ERR > 255 ? 
100 ON ERROR GOTO 'ERR' GOYES ivaerr 
120 IF MEM<800 THEN DOERR 24 CzA 8 
CSL A 
. CSL A C(3-2]= No LEX 
1000 'ERR': GOSUB 'RESTORE' à DISP ERRMS à END C=8 8 C(B]z No ERR 
GOVLNG BSERR 
permettent de sortir presque proprement. Un 
autre intérêt est que La fonction ERRN donne le ivaerr GOVLNG IVAERR 
bon numéro d'erreur, ce que ne permet pas le 
recours à MSG$. Utile lorsque l'affichage est DOERRd GOVLNG FIXDC un seul argument numérique 
perturbé par 'RESTORE', routine chargée de DOERRp GOVLNG FIXP obligatoire. 


rétablir l'environnement appelant (on affiche 
souvent “Working...” ou l'équivalent à ce moment). 


sms mmsmmmmmmmm mm mm mm mm mms mm mm mm mme 


Voilà une commande pas indispensable mais 
pratique. Avis aux amateurs | 


Jean-Pierre BONDU (PPC 33, SIG 4) 
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UNE EXTENSION DE L'ASSEMBLEUR 


Tout droit issu du Danemark, voici ces quelques 
mots Forth permettant d'étendre Les 
fonctionnalités de l'assembleur. 


Henrik Helnaes (PPC-Danemark) nous 8 fait 
l'honneur de nous envoyer Le resultat de son 
travail. En résumé, avec ceci, vous disposez 
d'une table d'EQU chargée automatiquement grace 
à une nouvelle pseudo-op "XEQUS",. En supplément, 
les bogues connues de l'assembleur sont corrigées. 


Le “machin! (l'assembleur du module Forth) n'a 
pas que des aspects négatifs : il permet en 
effet, via des tables, de modifier le 
comportement  d'op-codes existantes, ou d'en 
créer de nouvelles. 


C'est cette possibilité qui est utilisée ici 
pour créer XEQUS, et pour modifier l'exécution 
de END (visuslise Le nombre d'erreurs à La fin) 
let de B=B+B (évite Les messages  “duplicate 
Label" superflus...). 


La table des symboles (cf. SYMTAB XEQUATES) est 
évidemment Un exemple, et donc extensible et 
modifiable à volonté, ceci nécessitant bien sur 
une recompi lation. 


XASMB extensions pour l'assembleur Forth et  ) 
corrections des erreurs connues. ) 
1- correction du bug sur B=B+B ) 
è- ajout de La pseudo-op XEQUS qui inclue une ) 
table de symboles ) 

- visualisation du nombre d'erreurs en fin  ) 
d'exécution ) 
par Henrik Helnaes ) 
{sauf +BASE, ERRORS, ?PASS=1, DONE et une ) 
partie de CODER par J. Taillandier} ) 


mm 
Li 


CR .( Loading .. XASMB ) 


BASE à HEX 
: XASMB : 


: +BASE 

[ E9900 , ] ; 
: ERRORS 

11D +BASE ; 
: ?PASS=1 

[ EC9FO , ) ; 


: DONE 


19 +BASE ; 


INSERT ( sadr tadr -- 


DUP 12 ADJUSTF 

0= 

1F ABORT" No mem' 
THEN 12 NMOVE ; 


: SEEK 


“ ASMBSY" FINDF 20 + 


DUP DUP 
a + 12 - 
SWAP 5+ OVER SWAP 
DO 
DROP DUP 
616 
S< 1 SWAP 
IF LEAVE 
THEN 
12 + 12 
+LOOP ; 


MERGE ( eadr sadr ) 


Do 
1 SEEK 
2DUP 
6 SUAP 6 S= 
IF 2DROP 
ELSE INSERT 
THEN 12 
+LOOP ; 


TIME 

W TIME" BASICF ; 
DEC. 

BASE @ SWAP 
DECIMAL . BASE ! 


N, 

HERE N! 

1 NALLOT ; 
NNUM 

20 WORD 

NUMBER DROP ; 
BYTE 

NNUM C, ; 

NYB 

NNUM N, ; 

CODE 

NNUM , ; 

TEXT 

20 WORD 

DUP 2+ SWAP Ca 
2DUP 

“ ENDTAB" S= NOT 
ATEXT 

60 

DO Ca+ 


. 
. 


. 
‘ 


) 
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?DUP 0= 


IF BL ( Le format des données dans SYMTAB est: 
THEN C, ( nom valeur 
LOOP 
20ROP ; SYMTAB XEQUATES 
ENDBIN 0764B MGOSUB 1AF01 HEXDEC OECAF 
6 STRING CTXT DECHEX 1B202 HEXASC 17148 ADHEAD 18187 
DSPCNB 0971F ARGERR 0BF19 D=AVMS 14460 
: CODETAB STKCHR 18504 URES12 0C994 BF2DSP 01C0E 
CREATE FNRTN1 OF216 NXTSTM OBA48 EXPR  OF23C 
HERE 0, ENDTAB 
BEGIN 
TEXT WHILE : PARSER 
CTXT S! OPCODES SEARCH ; 
BYTE NYB 
CTXT ATEXT : CODER ( optype -- codelength ) 
BYTE NYB CASE 
CO0E BYTE 28 OF ?PASS=1 
REPEAT IF 0 
2DROP ELSE 
HERE SWAP ! ERRORS à CR 
DOES> DEC. ." error(s)" 
DUP à SWAP 5+ ; THEN 
: SEARCH -1 DONE ! 
DO ENDOF 
2DUP I 2+ 29 OF ?PASS=1 
DUP Na IF 
SUAP 1+ SWAP XEQUATES 2DUP - 12 
S= / FS +BASE +! MERGE 0 
IF 2DROP I -1 LEAVE THEN 
THEN 19 ENDOF 
+LO0P ENDCASE ; 
DUP -1 <> 
IF 2DROP 0 : ASSEMBLE 
THEN ; TIME 
HERE PAD 
( Le format des données dans CODETAB est: ) OVER - O NFILL 
( nom groupe longueur-du-texte flags ) PAD 2+ DUP 
( longueur-du-code code variables-A-B ) Ca 2* + 2+ SPa 
2DUP < 
CODETAB OPCOOES IF 
END 28 3 00 O 00000 00 OVER - O NFILL 
XEQUS 29 5 00 0 00000 00 ELSE 
B=8+8 02 5 04 3 00005 01 2DROP 
ENDTAB THEN 
['] PARSER 2FC79 ! 
: SYMTAB ['] CODER 2FC7E ! 
CREATE ASSEMBLE 2FC79 OA O NFILL 
HERE 0 , TIME X<>Y 
BEGIN F- F. 
TEXT WHILE " BEEP" BASICX ; 
ATEXT CODE 
2 N, BASE ! 
REPEAT 
2DROP HERE SWAP ! 
DOES> 
DUP a 
SWAP 5+ ; 





Nous avons passé Le fichier source tel qu'il ELSE INSERT 


nous a été envoyé par Henrik. Nous nous THEN 
permettons d'en proposer Une adaptation pour 12 
utilisation avec Le Lex “MASERLEX"' de Jean +LOOP ; 


Jacques Moreau, paru dans JPC No31 page 44 : 
: TIME 
" TIME" BASICF ; 


( XASMB extensions pour l'assembleur Forth et ) :N, 

( corrections des erreurs connues. ) HERE N! 

(€ 1- correction du bug sur B=B+B ) 1 NALLOT ; 

( 2- ajout de La pseudo-op XEQUS qui inclue une ) : NNUM 

( table de symboles ) 20 WORD 

( par Henrik Helnaes ) NUMBER DROP ; 
) 
) 


(€ 3- modification pour utilisation avec Le LEX : BYTE 


( MASERLEX de JJ Moreau. NNUM C, ; 
: NYB 
CR .( Loading .. XASMB ) NNUM N, ; 
: CODE 
BASE à HEX NNUM , ; 
: XASMB ; : TEXT 
20 WORD 
: +BASE DUP 2+ 
._ [ E9900 , ] ; SWAP Ca 
: PURGE 2DUP 
L EA541 , ] ; " ENDTAB" S= NOT ; 
: ?PASS=1 : ATEXT 
[ EC9FO , ] ; 60 
: DONE DO 
19 +BASE ; Cca+ 
?DUP 0= 
IF BL 
: INSERT ( sadr tadr -- ) THEN 
DUP 12 ADJUSTF C, 
0= LOOP 
IF ABORT' No mem! 2DROP ; 
THEN 
12 NMOVE ; 6 STRING CTXT 
: SEEK 
“ ASMBSY'" FINDF : CODETAB 
20 + CREATE 
DUP DUP HERE 0, 
à + 12 - BEGIN 
SWAP 5+ OVER SWAP TEXT WHILE 
DO CTXT S! 
DROP DUP BYTE NYB 
616S< CTXT ATEXT 
1 SWAP BYTE NYB 
IF LEAVE CODE BYTE 
THEN REPEAT 
12 + 12 2DROP 
+LOOP ; HERE SWAP ! 
: MERGE ( eadr sadr ) DOES> 
DO DUP à SWAP 5+ ; 
1 SEEK : SEARCH 
2DUP DO 
6 SWAP 6 S= 2DUP I 2+ DUP 
1F 2DROP Na SWAP 1+ SWAP 
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S= 
1F 2DROP I -1 LEAVE 
THEN 
19 
+LOOP 
DUP -1 <> 
IF 2DROP 0 
THEN ; 


( Le format des données dans CODETAB est: 


( nom groupe longueur-du-texte flags 
( longueur -du-code code variables-A-B 


CODETAB OPCODES 
XEQUS 29 5 00 O 00000 00 
8=8+8 02 5 04 3 00005 01 
ENDTAB 


: SYMTAB 
CREATE 
HERE 0, 
BEGIN 
TEXT WHILE 
ATEXT CODE 
2N, 
REPEAT 
20ROP HERE SWAP ! 
DOES> 
DUP à SWAP S+ ; 


( Le format des données dans SYMTAB est: 
( nom valeur 


SYMTAB XEQUATES 
ENDBIN 07648 MGOSUB 1AF01 HEXDEC OECAF 
DECHEX 18202 HEXASC 17148 ADHEAD 18187 
DSPCNB 0971F ARGERR 0BF19 D=AVMS 14460 
STKCHR 18504 URES12 0C994 BF2DSP 01C0E 
FNRTN1 OF216 NXTSTM O8A48 EXPR  OF23C 
ENDTAB 


: PARSER 
OPCODES SEARCH ; 


: CODER ( optype -- codelength ) 
CASE 
29 OF ?PASS=1 
IF 
XEQUATES 2DUP - 12 
/ F5 +BASE +! 
MERGE 0 
THEN 
ENDOF 
ENDCASE ; 


20 STRING FILENAME 


: ASSEMBLE 





TIME 

FILENAME SI 

W MASERT" 1 PURGE DROP 
HERE PAD OVER - O NFILL 
PAD 2+ DUP Ca 2* + 2+ SPa 2DUP < 
IF OVER - O NFILL 

ELSE 20ROP 

THEN 

['] PARSER 2FC79 ! 

['] CODER 2FC7E ! 
FILENAME ASSEMBLE 

2FC79 OA O NFILL 

TIME X<>Y 

F- F. 

" BEEP" BASICX ; 


BASE ! 


2 CHS 
03 ST/- 2 
04 ST+ 


C'etait le 06 xr2 
07 LASTX 


/ 09 6TOT 
non PemPre 69 RDN 





DEBUTER EN FICHIER A ACCES DIRECT 


Tout d'abord, Les deux programmes  ci-joints 
sont une approche de la création et de la 
lecture de fichiers à accès direct. Néanmoins, 
ils m'ont permis de découvrir La puissance du 
Basic de Titan. 


En fichier à accès direct à l'enregistrement, 
il faut piloter Le rang d'introduction (variable 
V). Pour Lire Les données, on pilote de même. 
Cela revient, pour l'instant, à faire de la 
lecture séquentielle. Mais dans un temps proche, 
avec d'autres programmes, on pourra sur Le choix 
d'un ou plusieurs critères, Sélectionner La 
lecture d'une ou plusieurs données. 


IL serait intéressant de créer en Lex l'ordre 
EOF (End Of File) permettant de tester La fin du 
fichier. En attendant, à La dernière entrée de 
données, il faut introduire un caractère de 
façon à marquer La fin du fichier. Bientôt dans 
JPC, un programme complet de gestion de fichier 
‘avec : création, lecture, modification, édition, 
insertion, fusion, tri. Le Pérou, quoi |! 
Vraiment fabuleux Titan. 


Utilisation des deux programmes : 


A) RUN programme création fichier eccès direct 
(FAD) 

On répond aux questions 

Pour marquer La fin du fichier à La dernière 
question on répond : "fin,0,0". 


B) RUN programme Lecture FAD 
Affichage du fichier. 
La Ligne 60 détecte La fin du fichier. 


Voila, c'est tout pour aujourd'hui. La suite au 
prochain JPC. Je pense que Les remarques dans 
Les deux programmes sont claires pour aider à 
comprendre ceux-ci. 


Alain Gillet 
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Programme "CRFIDI" (Création d'un fichier à accès direct) 


- Programme de création d'un fichier à accès direct 
N$ = Nom 
P$ = Prénoms 
À = Age 
V = Incrément pour pilotage rang des données 
10 PRINT 
20 PRINT 
- Ouverture du fichier 
30 CREATE DATA NOMS,20 
- Assignation du numéro de canal et ouverture de celui-ci 
40 ASSIGN #1 TO NOMS 
- Libération des variables 
50 DESTROY N$,PS$,A,V 
- Entrée des données 
60 INPUT "Nom, Prénoms, Age? ":N$,PS$,A 
- Ecriture sur le fichier 
70 PRINT #1,V:NS,PS,A 
- Test fin entrée 
80 1F NS='FIN' THEN 'FIN! 
- Pilotage rang d'introduction des données 
90 v=v+1 
- Si entrée non finie 
100 GOTO 60 
- Si fin entrée fermeture du fichier 


LESSSSSSSSSSSSSSLSSISITISIEIZISIZSSTIZSZZZTSSEISSSSSSSSSSSSIZSSIZSZZZS=ZzZzZzEz 
110 ‘FIN': ASSIGN #1 TO * 

Retour à l'utilisateur de l'écran 

120 POKE "2F94A" 10" | Merci Pierre David pour ce POKE 


A eee eee he ee ee ee ere eee ee ee eee eee ee ee ee ee eee ee ee ee eee ee ee 


Programme "LEFIDI" (Lecture d'un fichier à accès direct) 


- Programme de lecture de fichier à accès direct 
N$ = Noms 
P$ = Prénoms 
A = Age 
V = Incrément pour lecture données 
10 PRINT 
20 PRINT 
- Libération des variables 
30 DESTROY NS,PS$,A,V 
- Ouverture du fichier 
40 ASSIGN #1 TO NOMS 
- Lecture du fichier 
50 READ #1,V;NS,PS$,A 
- Test fin de lecture 
60 1F N$='FIN' THEN ‘FIN! 
- Affichage des données 
70 PRINT N$,PS$,A 
- Pilotage de La Lecture 
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80 V=v+1 
- Si lecture non finie 
90 GoTO 50 
- Si fin fermeture du fichier 


SESSLSSELIDREEEESTTSSTSSTOSTTTTISITISTSTEISCSESSSSSsszzTsSTrS=sESEEzE 
100 ‘FIN': ASSIGN #1 TO * 
- Retour à l'utilisateur de l'écran 
110 POKE "2F94A" "0" 
250 POKE "2F94A",101 


Si ee ee ee eee re oo oo oo ee eee 


Programme "SNCF" (Calcul du prix d'un billet : cf HP41) 


E2SESRESEESSSSESEESEESEESEESSESSSESSESESSIESEZSTEZ============-= 
10 SUB TAX486(C,R,B,D,P) 
- SUB TAX486(Clesse,RéductionX,A/E/Ch.,Distance, [prix]) 
Niveau tarifaire avril 86 (Nouvelles formules). 
40 OPTION BASE 1 
50 DIM DO(3),P0(3),P1(3),P8(3),P9(3) 
- Prix et seuils de base 
DO(1)=399 à D0(2)=449 à DO(3)=INF 
PO(1)=9 à PO(2)=17 à PO(3)=26.1 
P1(1)=.42 à P1(2)=.4 à P1(3)=.38 
100 P8(1)=.2 à P8(2)=.5 à P8(3)=1 ! Seuils d'arrondi 
110 P9(1)=20 à P9(2)=30 à P9(3)=INF 
120 M9=4.4 à T=.6 ! Mini.perception & Plafonnt.TC 
130 GOSUB 320 ! Dist.médiane du palier 
140 GOSUB 170 ! Prix palier et arrondi réglem. 
150 END 


883 


- Prix barème 
170 1F PO(1)>T*P1(1)*D2 THEN P=(1+T)*P1(1)*D2 @ GOTO 220 
180 FOR 1=1 TO 3 ! Choix formule 
190 IF D2<D0(1)+1 THEN P=PO(I1)+P1(1)*D2 à GOTO 220 
200 NEXT I! 
210 IF B=3 OR B=6 THEN P=.5*P à GOTO 250 ! Chiens (2ème classe) 
220 P=P*(1-R/100) ! Réduction 
230 1F C=1 THEN P=1.5*P ! 1ère classe 
240 1F B=2 THEN P=.5*P 
250 FOR 1=1 TO 3 ! Arrondi tarifaire 
260 IF P<P9(1) THEN P=CEIL(P/P8(1))*P8(1) @ GOTO 280 
270 NEXT 1 
280 M=M9 à IF C=1 THEN M=1.5*M ! Minimum perception 
290 1F P<M THEN P=M 
300 RETURN 
- Calcul dist.palière 
320 1F D<=7 THEN D9=7 à D2=6.5 à GOTO 380 
330 IF D<=49 THEN D9=2*IP(D/2)+1 à D2=D9-.5 à GOTO 380 
340 IF D<=199 THEN D9=5*IP(D/5)+4 à D2=D9-2 à GOTO 380 
350 1F D<=1949 THEN D9=10*1P(D/10)+9 à D2=D9-4.5 à GOTO 380 
360 D9=10*1P(D/10)+9 à D2=D9-4.5 
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370 SToP 
380 RETURN 


RRRRRRRR RM RÉ NN RRRRRRRR NRA RNA RAR RAR RAR 
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LE COIN DES LHEX 


Comme de coutume, Le coin des Lhex contient Lex Lex de La rubrique "assembleur", ainsi que 
CHARLEX qui est nécessaire à La rédaction de votre article pour JPC. Rappelez-vous qu'il n'est pas 
nécessaire de posséder un module Forth/Assembleur pour bénéficier des nouvelles fonctions 


proposées. IL suffit de copier le progremme Basic MAKELEX ci-dessous, puis de rentrer Les codes 
hexadécimaux de La rubrique. 


J.J. Dhénin, J. Taiïillandier, P. David 


SPACKLEX ASCMAX 92001 
ASCMIN 92002 
GOODBITS 92003 
SPACKS 92004 
SUNPACKS$ 92005 


DOERRLEX DOERR 92080 


0010 CALL MLEX à SUB MLEX à@ SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: ";N à LC OFF 
0020 CREATE DATA AH,1,N-4 @ A=HTD(ADDRS('"AH")) & B=A à GOSUB 130 

0030 Q=1 à X=0 à INPUT "000: ",PS$;AS$ à C$=A$ à S=0 à GOSUB 90 

0040 Q=2 à X=1 à GOSUB 80 à AS=ASECS à A=A+37 à N=N*2+37 à Q=3 Q SFLAG 5 @ FOR X=2 TO N DIV 16-1 
0050 GOSUB 80 à C$=C$[5*FLAG(5)+1] @ POKE DTHS(A),C$ @ A=A+16-5*FLAG(5,0) @ NEXT X à Q=4 
0060 DISP DTH$(X)[3]; à INPUT ": ",P$[1,MOD(N, 16)1;C$ @ GOSUB 90 

0070 POKE DTH$(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 

0080 DISP DTH$(X)[3); @ INPUT ": M,PS;CS 

0090 DISP DTH$(X)[3); @ INPUT " sm ","---M:DS$ 

0100 M=S à FOR Z=1 TO LEN(C$) à M=NUM(CS[Z])+M+1 @ NEXT Z 

0110 1F D$=DTHS(MOD(M,4096))13] THEN GOSUB 130 à S=M à RETURN 

0120 DISP "Erreur de somme" à BEEP @ P$=C$ à POP à ON Q GOTO 30,40,50,60 

0130 P$ut---....ssmmane “ @ RETURN 
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CHARLEX  ID#E1 624 octets 035: 4020014E322E3140 E99 018: AES9EFSOAE717154 8BA 


036: 084E794142400000 1E9 019: E4118F1308013618 C4A 
012345678SABCDEF sm 037: 00000000002E€4559 527 O1A: BB8F2144AF1D881D 008 
038: 3200000000000000 83C 018: AF410375AFAEBIOA 3C4 
000: 34841425C4548502 35E 039: 0000000000000026 854 01C: 137109135134AF2A 734 
001: 802E000100629068 6AD 03A: 5556587008365556 EB3 010: E9B68AF0767F1001 ADF 
002: 5E4001E000000000 9F1 038: 5810083645464830 204 01E: 1308AE3CD405181A E83 
003: FE0000000800001F D48 03C: 0832414248700024 545 O1F: FO1GATTAB6AFOFOA 238 
004: F318F9614000328F 00€ 030: 5655587008345655 8A2 020: EBA6E48081C56F14 SE9 
005: 38F14A110810AD23 478 03E: 5810083446454830 8F1 021: FOE6A1401189E361 986 
006: 07D5328FB8FD7911 828 03F: 0C3042414C700024 F46 022: 1C1F4F41493180A6 D10 
007: 11AD754D7A101743 BAE 040: 5556587008355654 2A3 023: 31188635FA318096 08F 
008: 1101401C815D0000 F19 041: 5810083546444830 5F2 024: 7501718501B495F2 3FE 
009: 71450375FF864834 296 042: 0C3142404C700025 948 025: 1460711A8F405813 77A 
004: 5655581008355654 5ED 043: 5455587008355455 CA2 026: 1801108628F40581 ADF 
008: 5810002455565870 93A 064: 5810083544454830 FFO0 027: 118F6F68F4058111 E60 
00C: 0026555658700836 C8C 045: 0C3140414C700875 352 028: 88F405818F781818 208 
000: 5556581008364545 FE2 046: 1414187000044972 6A3 029: FE83811BB88F2146 5C3 
00E: 4A30000449724000 335 047: 40000€3159454E30 A03 O2A: 1346D11A6E400C46 944 
00F: 0808094A2C180814 69€ 048: OC7A0F7949400024 D78 028: 7FF4118F13080136 CDF 
010: A464242008355455 9F8 049: 5554587000084A71 007 O2C: 18888F2144137134 062 
011: 581000054C714000 D3E 04A: 40000C523A262D10 438 020: C213507AF015SA7AF 417 
012: 0cC3142404C700832 O9A 048: 0424587458400875 78F 02E: 2D680C41088F4BF4 7CD 
013: 41414A70002078A0 3F2 04C: 1415187000094A70 ADF O2F: BF4BF4D230886210 871 
014: 2F30000000000000 710 040: 4000083544454830 E23 030: 88F48r4102167136 EFC 
015: 0000000000000000 A2D O4E: 0C3140414C300074 188 031: 134E3C7C711BC68F 2AB 
016: 0000000000000000 D30 04F: 5655545000054C71 4E2 032: A90F01101188F963 62F 
017: 0000000000000000 04D 050: 40000 508 033: B1D6E33180AEFB63 9E7 
018: 0000000000000000 350 034: AF014A7D5F11B05C DAA 
019: 0000000000000000 660 / SPACKLEX ID#5C 466 octets 035: D4SSAEGAFOAEA118 170 
01A: 0000000000000000 97D 036: 9E322AEB8783F1188 528 
018: 0000000000000000 C8D 0123456789ABCDEF sm 037: 6BAEA3180A63AE61 800 
01C: 0000000000000000 F90 038: 6114A7E 1FD6F6F61 C90 
010: 0000000000000000 2AD 000: 35051434B4C45485 36C 039: 22A6212214D11886 FFD 
01E: 0000000000000000 58D 001: 802E001100629068 68C 03A: 31715AA1191358FE 387 
01F: 0000000000000000 8CD 002: 84300C5105000000 A06 038: 838118888F214613 718 
020: 0000000000000000 800 003: F830000000000000 D41 03C: 480C32F0F 938 
021: 000000000000080€ F08 004: 038000FF006A000F 085 
022: 1428080008080A2C 272 005: E10CC000F1308310 427 DOERRLEX ID#5C 74 octets 
023: 180008040€340800 588 006: 0F04015200FB1435 78€ 
0264: 08001E3018000000 8F5 007: 34D4148510814353 AF2 0123456789ABCDEF sm 
025: 0000000000000000 C05 008: 4D494E420F74F4F4 E9B 
026: 0000000000000000 F15 009: 4424944535308350 1F4 000: 44F4542525C45485 376 
027: 0000000000000000 225 004: 51434844240F3555 550 001: 802E002100629068 607 
028: 0201000000010200 538 008: E40514348442501F 8CF 002: 89000c5050500000 AOA 
029: 0000000201020000 850 00C: F411AF08F8308081 C7A 003: F710000000000000 D38 
02A: 0001000100000002 864 000: C7ABO0AFOAE41CF8F 056 004: 0020000944F45425 099 
028: 0102010000000000 E78 00€: 81381151767D2411 3C6 005: 25051FF350005500 3F4 
02C: 0000000000000000 188 00F: AFO8F83DB081C7ES 789 006: 08F871F08F8C6315 79A 
020: 045E755142400101 4D4 010: OAFOAEBAEAÎCFBFB 889 007: 33348E3008FE6CE0 838 
02E: 0101010000000000 7E7 011: 1381151768A2411A EF6 008: 20AF2A6E9F6819F1 EED 
02F: 0000000000000000 AF7 012: FO8F8308081C7F20 2A6 009: 31AE6F2F2AE98DA9 2C2 
030: 0000070507000000 E1A 013: AF2AE9B68AF07210 669 00A: 39080029E 0803945 648 
031: 0000000008344404 158 014: 1CF8FB1381151762 A00 008: 08DE6A20F 864 
032: 4440007901112070 488 015: 7281E86496E7FO01A DA6 
033: 0500750509700000 802 016: E131FFAE7B8AC7O0AE 182 
034: 0070000000384540 845 017: 301CC40014F9E950 507 
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